home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / 2julian.zip / 2JULIAN.FUN next >
Text File  |  1991-06-04  |  571b  |  24 lines

  1. 'PowerBASIC function to convert a Date to a Julian number
  2. 'CopyRight 1991 by Dave Navarro, Jr.
  3. 'Last Revision: June 3, 1991
  4.  
  5. 'Julian - Returns a julian number for a given date
  6.  
  7. FUNCTION Julian&(Dat$) PUBLIC
  8.   Mmonth%=VAL(LEFT$(Dat$,2))
  9.   IF Mmonth%<3 THEN
  10.      mx%=1
  11.    ELSE
  12.      mx%=0
  13.   END IF
  14.   Mday%=VAL(MID$(Dat$,4,2))
  15.   Myear%=VAL(MID$(Dat$,7))
  16.   IF Myear%<100 THEN INCR MYear%,1900
  17.   Mc&=INT((Myear%-Mx%)/100)
  18.   Ma&=INT(365.25*(Myear%-Mx%))
  19.   Ma&=INT(Ma&-(.75*Mc&))
  20.   Mc&=INT(367*(((Mmonth%-2)/12)+Mx%))
  21.   Julian&=Mday%+Ma&+Mc&
  22. END FUNCTION
  23.  
  24.